home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getscr1r / clswinst.cls < prev    next >
Text File  |  1999-09-06  |  5KB  |  194 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsWInStyle"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  17. Option Explicit
  18.  
  19. ' Name:     Windows Information Viewer
  20. ' Author:   Chong Long Choo
  21. ' Date:     06 September 1999
  22.  
  23. Private mvarWS_BORDER As Boolean
  24. Private mvarWS_CAPTION As Boolean
  25. Private mvarWS_CHILD As Boolean
  26. Private mvarWS_CLIPCHILDREN As Boolean
  27. Private mvarWS_CLIPSIBLINGS As Boolean
  28. Private mvarWS_DISABLED As Boolean
  29. Private mvarWS_DLGFRAME As Boolean
  30. Private mvarWS_GROUP As Boolean
  31. Private mvarWS_HSCROLL As Boolean
  32. Private mvarWS_MAXIMIZE As Boolean
  33. Private mvarWS_MAXIMIZEBOX As Boolean
  34. Private mvarWS_MINIMIZE As Boolean
  35. Private mvarWS_MINIMIZEBOX As Boolean
  36. Private mvarWS_POPUP As Boolean
  37. Private mvarWS_SYSMENU As Boolean
  38. Private mvarWS_TABSTOP As Boolean
  39. Private mvarWS_THICKFRAME As Boolean
  40. Private mvarWS_VISIBLE As Boolean
  41. Private mvarWS_VSCROLL As Boolean
  42.  
  43. Public Property Let WS_VSCROLL(ByVal vData As Boolean)
  44.     mvarWS_VSCROLL = vData
  45. End Property
  46.  
  47. Public Property Get WS_VSCROLL() As Boolean
  48.     WS_VSCROLL = mvarWS_VSCROLL
  49. End Property
  50.  
  51. Public Property Let WS_VISIBLE(ByVal vData As Boolean)
  52.     mvarWS_VISIBLE = vData
  53. End Property
  54.  
  55. Public Property Get WS_VISIBLE() As Boolean
  56.     WS_VISIBLE = mvarWS_VISIBLE
  57. End Property
  58.  
  59. Public Property Let WS_THICKFRAME(ByVal vData As Boolean)
  60.     mvarWS_THICKFRAME = vData
  61. End Property
  62.  
  63. Public Property Get WS_THICKFRAME() As Boolean
  64.     WS_THICKFRAME = mvarWS_THICKFRAME
  65. End Property
  66.  
  67. Public Property Let WS_TABSTOP(ByVal vData As Boolean)
  68.     mvarWS_TABSTOP = vData
  69. End Property
  70.  
  71. Public Property Get WS_TABSTOP() As Boolean
  72.     WS_TABSTOP = mvarWS_TABSTOP
  73. End Property
  74.  
  75. Public Property Let WS_SYSMENU(ByVal vData As Boolean)
  76.     mvarWS_SYSMENU = vData
  77. End Property
  78.  
  79. Public Property Get WS_SYSMENU() As Boolean
  80.     WS_SYSMENU = mvarWS_SYSMENU
  81. End Property
  82.  
  83. Public Property Let WS_POPUP(ByVal vData As Boolean)
  84.     mvarWS_POPUP = vData
  85. End Property
  86.  
  87. Public Property Get WS_POPUP() As Boolean
  88.     WS_POPUP = mvarWS_POPUP
  89. End Property
  90.  
  91. Public Property Let WS_MINIMIZEBOX(ByVal vData As Boolean)
  92.     mvarWS_MINIMIZEBOX = vData
  93. End Property
  94.  
  95. Public Property Get WS_MINIMIZEBOX() As Boolean
  96.     WS_MINIMIZEBOX = mvarWS_MINIMIZEBOX
  97. End Property
  98.  
  99. Public Property Let WS_MINIMIZE(ByVal vData As Boolean)
  100.     mvarWS_MINIMIZE = vData
  101. End Property
  102.  
  103. Public Property Get WS_MINIMIZE() As Boolean
  104.     WS_MINIMIZE = mvarWS_MINIMIZE
  105. End Property
  106.  
  107. Public Property Let WS_MAXIMIZEBOX(ByVal vData As Boolean)
  108.     mvarWS_MAXIMIZEBOX = vData
  109. End Property
  110.  
  111. Public Property Get WS_MAXIMIZEBOX() As Boolean
  112.     WS_MAXIMIZEBOX = mvarWS_MAXIMIZEBOX
  113. End Property
  114.  
  115. Public Property Let WS_MAXIMIZE(ByVal vData As Boolean)
  116.     mvarWS_MAXIMIZE = vData
  117. End Property
  118.  
  119. Public Property Get WS_MAXIMIZE() As Boolean
  120.     WS_MAXIMIZE = mvarWS_MAXIMIZE
  121. End Property
  122.  
  123. Public Property Let WS_HSCROLL(ByVal vData As Boolean)
  124.     mvarWS_HSCROLL = vData
  125. End Property
  126.  
  127. Public Property Get WS_HSCROLL() As Boolean
  128.     WS_HSCROLL = mvarWS_HSCROLL
  129. End Property
  130.  
  131. Public Property Let WS_GROUP(ByVal vData As Boolean)
  132.     mvarWS_GROUP = vData
  133. End Property
  134.  
  135. Public Property Get WS_GROUP() As Boolean
  136.     WS_GROUP = mvarWS_GROUP
  137. End Property
  138.  
  139. Public Property Let WS_DLGFRAME(ByVal vData As Boolean)
  140.     mvarWS_DLGFRAME = vData
  141. End Property
  142.  
  143. Public Property Get WS_DLGFRAME() As Boolean
  144.     WS_DLGFRAME = mvarWS_DLGFRAME
  145. End Property
  146.  
  147. Public Property Let WS_DISABLED(ByVal vData As Boolean)
  148.     mvarWS_DISABLED = vData
  149. End Property
  150.  
  151. Public Property Get WS_DISABLED() As Boolean
  152.     WS_DISABLED = mvarWS_DISABLED
  153. End Property
  154.  
  155. Public Property Let WS_CLIPSIBLINGS(ByVal vData As Boolean)
  156.     mvarWS_CLIPSIBLINGS = vData
  157. End Property
  158.  
  159. Public Property Get WS_CLIPSIBLINGS() As Boolean
  160.     WS_CLIPSIBLINGS = mvarWS_CLIPSIBLINGS
  161. End Property
  162.  
  163. Public Property Let WS_CLIPCHILDREN(ByVal vData As Boolean)
  164.     mvarWS_CLIPCHILDREN = vData
  165. End Property
  166.  
  167. Public Property Get WS_CLIPCHILDREN() As Boolean
  168.     WS_CLIPCHILDREN = mvarWS_CLIPCHILDREN
  169. End Property
  170.  
  171. Public Property Let WS_CHILD(ByVal vData As Boolean)
  172.     mvarWS_CHILD = vData
  173. End Property
  174.  
  175. Public Property Get WS_CHILD() As Boolean
  176.     WS_CHILD = mvarWS_CHILD
  177. End Property
  178.  
  179. Public Property Let WS_CAPTION(ByVal vData As Boolean)
  180.     mvarWS_CAPTION = vData
  181. End Property
  182.  
  183. Public Property Get WS_CAPTION() As Boolean
  184.     WS_CAPTION = mvarWS_CAPTION
  185. End Property
  186.  
  187. Public Property Let WS_BORDER(ByVal vData As Boolean)
  188.     mvarWS_BORDER = vData
  189. End Property
  190.  
  191. Public Property Get WS_BORDER() As Boolean
  192.     WS_BORDER = mvarWS_BORDER
  193. End Property
  194.